home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / octa209s.zip / octave-2.09 / libs / kpathsea / cnf.c < prev    next >
C/C++ Source or Header  |  1995-06-25  |  6KB  |  191 lines
  1. /* cnf.c: read config files.
  2.  
  3. Copyright (C) 1994 Karl Berry.
  4.  
  5. This program is free software; you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation; either version 2, or (at your option)
  8. any later version.
  9.  
  10. This program is distributed in the hope that it will be useful,
  11. but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. GNU General Public License for more details.
  14.  
  15. You should have received a copy of the GNU General Public License
  16. along with this program; if not, write to the Free Software
  17. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.  */
  18.  
  19. #include <kpathsea/config.h>
  20.  
  21. #include <kpathsea/c-fopen.h>
  22. #include <kpathsea/c-ctype.h>
  23. #include <kpathsea/cnf.h>
  24. #include <kpathsea/db.h>
  25. #include <kpathsea/hash.h>
  26. #include <kpathsea/line.h>
  27. #include <kpathsea/paths.h>
  28. #include <kpathsea/pathsearch.h>
  29. #include <kpathsea/tex-file.h>
  30. #include <kpathsea/variable.h>
  31.  
  32.  
  33. /* By using our own hash table, instead of the environment, we
  34.    complicate variable expansion (because now we have to look in two
  35.    places), but we don't bang so heavily on the system.  DOS and System
  36.    V have very limited environment space.  Also, this way
  37.    `kpse_init_format' can distinguish between values originating from
  38.    the cnf file and ones from environment variables, which can be useful
  39.    for users trying to figure out what's going on.  */
  40. #ifndef CNF_HASH_SIZE
  41. #define CNF_HASH_SIZE 751
  42. #endif
  43. static hash_table_type cnf_hash;
  44.  
  45. /* Do a single line in a cnf file: if it's blank or a comment, skip it.
  46.    Otherwise, parse <variable>[.<program>] [=] <value>.  Do
  47.    this even if the <variable> is already set in the environment, since
  48.    the envvalue might contain a trailing :, in which case we'll be
  49.    looking for the cnf value.  */
  50.  
  51. static void
  52. do_line P1C(string, line)
  53. {
  54.   unsigned len;
  55.   string start;
  56.   string value, var;
  57.   
  58.   /* Skip leading whitespace.  */
  59.   while (ISSPACE (*line))
  60.     line++;
  61.   
  62.   /* More to do only if we have non-comment material left.  */
  63.   if (*line == 0 || *line == '%' || *line == '#')
  64.     return;
  65.   
  66.   /* The variable name is everything up to the next space or = or `.'.  */
  67.   start = line;
  68.   while (!ISSPACE (*line) && *line != '=' && *line != '.')
  69.     line++;
  70.  
  71.   /* `line' is now one character past the end of the variable name.  */
  72.   len = line - start;
  73.   var = xmalloc (len + 1);
  74.   strncpy (var, start, len);
  75.   var[len] = 0;
  76.   
  77.   /* If the variable is qualified with a program name, we might be
  78.      ignoring it.  */
  79.   while (ISSPACE (*line))
  80.     line++;
  81.   if (*line == '.') 
  82.     { /* Skip spaces, then everything up to the next space or =.  */
  83.       string prog;
  84.       extern string program_invocation_short_name; /* must be set by main */
  85.       
  86.       line++;
  87.       while (ISSPACE (*line))
  88.         line++;
  89.       start = line;
  90.       while (!ISSPACE (*line) && *line != '=')
  91.         line++;
  92.       
  93.       /* It's annoying to repeat all this, but making a tokenizing
  94.          subroutine would be just as long and annoying.  */
  95.       len = line - start;
  96.       prog = xmalloc (len + 1);
  97.       strncpy (prog, start, len);
  98.       prog[len] = 0;
  99.       
  100.       /* If we are running `prog', fine; otherwise, we're done.  */
  101.       assert (program_invocation_short_name);
  102.       if (!STREQ (prog, program_invocation_short_name))
  103.         {
  104.           free (var);
  105.           free (prog);
  106.           return;
  107.         }
  108.     }
  109.  
  110.   /* Skip whitespace, an optional =, more whitespace.  */
  111.   while (ISSPACE (*line))
  112.     line++;
  113.   if (*line == '=')
  114.     {
  115.       line++;
  116.       while (ISSPACE (*line))
  117.         line++;
  118.     }
  119.   
  120.   /* Everything up to the next whitespace or eol is the value. */
  121.   start = line;
  122.   while (*line && !ISSPACE (*line))
  123.     line++;
  124.   len = line - start;
  125.   
  126.   value = xmalloc (len + 1);
  127.   strncpy (value, start, len);
  128.   value[len] = 0;
  129.   
  130.   /* For cnf files, multiple values for a single variable make no sense,
  131.      but instead of removing them, we'll just take the most recent in
  132.      `kpse_cnf_get'.  Thus, we are assuming here that `hash_insert' puts
  133.      the most recent entries in first.  */
  134.   hash_insert (&cnf_hash, var, value);
  135.   
  136.   /* We could check that anything remaining is preceded by a comment
  137.      character, but let's not bother.  */
  138. }
  139.  
  140. /* Read all the configuration files in the path.  */
  141.  
  142. static void
  143. read_files P1H(void)
  144. {
  145.   string *cnf_files;
  146.   const_string cnf_path = kpse_init_format (kpse_cnf_format);
  147.  
  148.   cnf_hash = hash_create (CNF_HASH_SIZE);
  149.  
  150.   for (cnf_files = kpse_all_path_search (cnf_path,
  151.                                     kpse_format_info[kpse_cnf_format].program);
  152.        cnf_files && *cnf_files; cnf_files++)
  153.     {
  154.       string line;
  155.       string cnf_filename = *cnf_files;
  156.       FILE *cnf_file = xfopen (cnf_filename, FOPEN_R_MODE);
  157.       
  158.       while ((line = read_line (cnf_file)) != NULL)
  159.         {
  160.           do_line (line);
  161.           free (line);
  162.         }
  163.  
  164.       xfclose (cnf_file, cnf_filename);
  165.     }
  166.   
  167.   /* After (*after*) reading the cnf files, expand the db directory, for
  168.      use by `elt_in_db' in pathsearch.c.  The default value of $TEXMF
  169.      has to be able to get TEXMF from a cnf file, therefore in the
  170.      `kpse_all_path_search' call above, we do not have DB_DIR.  */
  171.   kpse_db_dir = kpse_var_expand (KPSE_DB_DIR);
  172.   if (! *kpse_db_dir)
  173.     kpse_db_dir = kpse_var_expand (DEFAULT_TEXMF);
  174. }
  175.  
  176. /* Read the cnf files on the first call.  Return the first value in the
  177.    returned list -- this will be from the last-read cnf file.  */
  178.  
  179. string
  180. kpse_cnf_get P1C(const_string, name)
  181. {
  182.   string *ret_list;
  183.   
  184.   if (cnf_hash.size == 0)
  185.     read_files ();
  186.   
  187.   ret_list = hash_lookup (cnf_hash, name);
  188.   
  189.   return ret_list ? *ret_list : NULL;
  190. }
  191.